home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlondesBrunettes.dxr / Internal_75_tab hotspot.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.3 KB  |  41 lines
  1. property myrow
  2. global equal, hotcard, tableau, basecard, shitfudge, carp
  3.  
  4. on beginSprite me
  5.   shitfudge = shitfudge + 1
  6.   myrow = shitfudge
  7.   sprite(me.spriteNum).blend = 0
  8. end
  9.  
  10. on mouseEnter me
  11.   if the clickOn <> 0 then
  12.     if sprite(the clickOn).moveableSprite = 1 then
  13.       if (tableau[makesymbol(myrow)].cards.count >= 1) and (tableau[makesymbol(myrow)].cards.count < 11) then
  14.         if (getlist(the clickOn).rankvalue = (tableau[makesymbol(myrow)].getlastcard().rankvalue - 1)) and (getlist(the clickOn).suitcolor <> tableau[makesymbol(myrow)].getlastcard().suitcolor) then
  15.           equal = 1
  16.           hotcard = tableau[makesymbol(myrow)].getlastcard().spnum + 1
  17.         else
  18.           if (getlist(the clickOn).rank = "king") and (tableau[makesymbol(myrow)].getlastcard().rank = "ace") and (getlist(the clickOn).suitcolor <> tableau[makesymbol(myrow)].getlastcard().suitcolor) then
  19.             equal = 1
  20.             hotcard = tableau[makesymbol(myrow)].getlastcard().spnum + 1
  21.           end if
  22.         end if
  23.       else
  24.         equal = 0
  25.         hotcard = 0
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31. on buckup me
  32.   if tableau[makesymbol(myrow)].cards.count > 0 then
  33.     sprite(me.spriteNum).loc = tableau[makesymbol(myrow)].getlastcard().location
  34.   end if
  35. end
  36.  
  37. on mouseLeave me
  38.   equal = 0
  39.   hotcard = 0
  40. end
  41.